﻿Public Class Plugin
    Implements UCBase.I_Plugin
    Private DevList As New List(Of UCBase.UCSDevice)
    Public Function GetDevice(ByVal Name As String) As System.Windows.Forms.Control Implements UCBase.I_Plugin.GetDevice
        If Name = "StarTracker" Then Return New StarTracker 'Get Control from Reference Name
        If Name = "TrackerTester" Then Return New TrackerTester 'Get Control from Reference Name
        Return Nothing
    End Function
    Public Sub New()
        'Add Control to plugin Device List
        DevList.Add(New UCBase.UCSDevice("Star Tracker", "StarTracker", "Tracking", "Star Tracker"))
        DevList.Add(New UCBase.UCSDevice("Tracker Tester", "TrackerTester", "Tracking", "Tracker Tester"))
    End Sub
    Public ReadOnly Property Devices() As System.Collections.Generic.List(Of UCBase.UCSDevice) Implements UCBase.I_Plugin.Devices
        Get
            Return DevList
        End Get
    End Property
    Public Sub Unload() Implements UCBase.I_Plugin.Unload
        Me.Finalize()
    End Sub
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
    Public WriteOnly Property Resources() As UCBase.ResourceManager Implements UCBase.I_Plugin.Resources
        Set(ByVal value As UCBase.ResourceManager)

        End Set
    End Property
End Class
